gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Admin_JScode.asp
<!--#include file="Admin_ChkPurview.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119 81234844 81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================
%>
<html>
<head>
<title>首页调用</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Behind.WriteHtmlHead
Dim XmlDoc,CodePutSql,Node
Dim NewsConfigFile
Dim NewsName,NewsType,UpdateTime,Skin_Head,Skin_Main,Skin_Footer,NewsSql
NewsConfigFile = Server.MapPath("Templates/CodeTemplates.config")
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<input name="SystemPath" type="hidden" value="<%=Config.SystemUrl%>" size="60">
<tr class="topbg">
<td colspan=2 align=center class="topbg"><strong>代 码 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="21%"><strong>管理导航</strong></td>
<td>
<a href="?Action=AddSetting">添加调用</a> | <a href="?Action=NewsList">调用列表</a> | <a href="CodeDemo.asp" target="_blank">调用演示</a>
</td>
</tr>
</table>
<%
Select Case Request("Action")
Case "NewsList": Call NewsList()
Case "AddSetting" , "EditNewsInfo" : Call AddSetting()
Case "SaveSetting" , "SaveEditSetting" : Call SaveSetting()
Case "DelNewsInfo" : Call DelNewsInfo()
Case Else
Call NewsList()
End Select
Behind.WriteHtmlEnd
'删除记录
Sub DelNewsInfo()
Dim DelNodes,DelChildNodes
Set XmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
If Not XmlDoc.load(NewsConfigFile) Then
ErrMsg = "调用列表中为空，请填写调用后再执行本操作!"
Behind.WriteErrMsg(ErrMsg)
Exit Sub
End If
'Response.Write Request.Form("DelNodes").count
For Each DelNodes in Request.Form("DelNodes")
Set DelChildNodes = XmlDoc.DocumentElement.selectSingleNode("NewsCode[@AddTime='"&DelNodes&"']")
If Not (DelChildNodes is nothing) Then
XmlDoc.DocumentElement.RemoveChild(DelChildNodes)
End If
Next
Call SaveXml()
Behind.WriteSuccessMsg "所选的记录已删除!",Request.ServerVariables("HTTP_REFERER")
End Sub
Sub NewsList()
Set XmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
If Not XmlDoc.load(NewsConfigFile) Then
Behind.WriteErrMsg("<br><li>首页调用列表为空，请添加首页调用后再执行本操作!</li>")
Exit Sub
End If
Dim SendLogNode,Childs
Set SendLogNode = XmlDoc.DocumentElement.SelectNodes("NewsCode")
Childs = SendLogNode.Length '列表数
%>
<br>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr>
<td width="1%" height="23" class="tdbg1" align=center nowrap>选取</td>
<td width="10%" class="tdbg1" align=center>类别</td>
<td width="10%" class="tdbg1" align=center>名称</td>
<td width="*" class="tdbg1" align=center nowrap>说明</td>
<td width="20%" class="tdbg1" align=center>添加时间/更新时间</td>
<td width="20%" class="tdbg1" align=center>添加者</td>
<td width="1%" class="tdbg1" align=center>操作</td>
</tr>
<form action="?" method="post" name="TheForm">
<%
Dim SearchStr,Topic,i
i=0
For Each Node in SendLogNode
%>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#EBEBEB'">
<td align=center>
<INPUT TYPE="checkbox" NAME="DelNodes" value="<%=Node.getAttribute("AddTime")%>">
</td>
<td align=center><nobr><%=NewsCodeType(Node.getAttribute("NewsType"))%></nobr></td>
<td align=center><%=Node.getAttribute("NewsName")%></td>
<td>
<%=Node.getAttribute("Intro")%>
<br><font color="gray">更新时间间隔为：<font color="red"><%=Node.getAttribute("UpdateTime")%></font> 秒。</font>
</td>
<td><%=Node.getAttribute("AddTime")%><br><font color="red"><%=Node.getAttribute("LastTime")%></font></td>
<td align=center><%=Node.getAttribute("MasterName")%><br><font color="gray"><%=Node.getAttribute("MasterIP")%></font></td>
<td align=center><input type="submit" onclick="this.form.Action.value='EditNewsInfo';Selchecked(this.form.DelNodes,<%=i%>);" value="编辑">
<input type="button" value="预览" onClick="runscript(viewcode,'<%=Node.getAttribute("NewsName")%>');">
</td>
</tr>
<%
i=i+1
Next
%>
<tr>
<td colspan="7">
<input type="hidden" name="viewcode" value="">
<input type="hidden" name="Action" value="DelNewsInfo">
<input type="submit" name="Submit" value="删除记录" onclick="{if(confirm('注意：所删除的模版将不能恢复！')){this.form.submit();return true;}return false;}"> <input type=checkbox name=chkall value=on onClick="CheckAll(this,this.form)">全选</td>
</tr>
</form>
</table>
<SCRIPT LANGUAGE="JavaScript">
<!--
function Selchecked(obj,n){
if (obj[n]){
obj[n].checked=true;
}else{
obj.checked=true;
}
}
function CheckAll(src,form){
for(var i=0;i<form.elements.length;i++){
var obj=form.elements[i];
if(obj.type&&obj.type=="checkbox"){
obj.checked = src.checked;
}
}
}
function runscript(n,Val){
TheForm.viewcode.value = "<scr"+"ipt language=\"javascript\" src=\"<%=Config.SystemUrl%>CodePut.asp?Name="+Val.toLowerCase()+"\"><\/scr"+"ipt>";
txtRun=n; window.open("CodeView.asp",'CodeView','toolbar=no,location=no,directories=no,status=yes,menubar=yes,scrollbars=yes,resizable=yes,copyhistory=no,width=780,height=450,left=200,top=150');
}
//-->
</SCRIPT>
</table>
<%
Set XmlDoc = Nothing
End Sub
Sub LoadXml()
Set XmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
If Not XmlDoc.load(NewsConfigFile) Then
XmlDoc.loadxml "<?xml version=""1.0"" encoding=""gb2312""?><NewscodeInfo/>"
End If
End Sub
Function NewsCodeType(TypeVal)
NewsCodeType = "未知"
Select Case Cstr(TypeVal)
Case "1"
NewsCodeType = "文章"
Case "2"
NewsCodeType = "图片"
Case "3"
NewsCodeType = "公告"
Case "4"
NewsCodeType = "专题"
Case "5"
NewsCodeType = "分类"
Case "6"
NewsCodeType = "友情连接"
Case "7"
NewsCodeType = "首页大图"
Case "8"
NewsCodeType = "登录"
Case "9"
NewsCodeType = "广告"
Case "10"
NewsCodeType = "其他"
Case "11"
NewsCodeType = "顶部连接"
End Select
NewsCodeType = NewsCodeType & "调用"
End Function
'检查是否存在相同的标识
Function FoundNewsName(NewsName)
Dim Test
Set Test = XmlDoc.DocumentElement.selectSingleNode("NewsCode[@NewsName="""&NewsName&"""]")
FoundNewsName = not (Test is nothing)
End Function
Sub SaveXml()
XmlDoc.save NewsConfigFile
Set XmlDoc = Nothing
End Sub
'公共记录
Sub CreateXmlLog()
Dim attributes',createCDATASection,ChildNode
Dim FormName,NoAttFormName
Dim Addtime,i
AddTime = Now()
If Request("Action") = "SaveEditSetting" and Request.Form("AddTime")<>"" Then
Set Node = XmlDoc.DocumentElement.selectSingleNode("NewsCode[@AddTime='"&Request.Form("AddTime")&"']")
If Not (Node is nothing) Then
AddTime = Node.getAttribute("AddTime")
XmlDoc.DocumentElement.RemoveChild(Node)
End If
End If
'创建节点
Set Node=XmlDoc.createNode(1,"NewsCode","")
NoAttFormName = ",Skin_Head,Skin_Main,Skin_Footer,UserLogin,UserInfo,Action,AddTime"
For i = 0 To 5
NoAttFormName = NoAttFormName & "Board_Input"&i&","
Next
For Each FormName In Request.Form
If Instr(NoAttFormName,","&FormName&",")=0 Then
Set attributes=XmlDoc.createAttribute(FormName)
If FormName="NewsName" Then
attributes.text = Lcase(Replace(Request.Form(FormName),"""",""))
Else
attributes.text = Replace(Request.Form(FormName),"""","")
End If
node.attributes.setNamedItem(attributes)
End If
Next
SetNamedItem "MasterName",Netout.UserName
SetNamedItem "MasterIP",Netout.UserTrueIP
SetNamedItem "AddTime",AddTime
SetNamedItem "LastTime",DateAdd("s", -UpdateTime,now())
CreateCDATASection "Search",CodePutSql
CreateCDATASection "Skin_Head",Skin_Head
CreateCDATASection "Skin_Main",Skin_Main
CreateCDATASection "Skin_Footer",Skin_Footer
CreateCDATASection "UserLogin",Request.Form("UserLogin")
CreateCDATASection "UserInfo",Request.Form("UserInfo")
Select Case NewsType
Case "1","2"
Dim LastId
Select Case NewsType
Case "1":LastId = 2
Case "2":LastId = 4
End Select
For i = 0 To LastId
Board_Input = Netout.CheckNumeric(Request.Form("Board_Input"&i))
If Board_Input = 0 Then Board_Input = ""
CreateCDATASection "Board_Input"&i,Board_Input
Next
CreateCDATASection "Board_Input"&(LastId+1),Request.Form("Board_Input"&(LastId+1))
Case Else
CreateCDATASection "Board_Input0",Request.Form("Board_Input0")
End Select
XmlDoc.documentElement.appendChild(node)
End Sub
Sub SetNamedItem(attName,attValue)
Dim attributes
Set attributes = XmlDoc.createAttribute(attName)
attributes.text = attValue
node.attributes.setNamedItem(attributes)
End Sub
Sub CreateCDATASection(nodeName,nodeValue)
Dim ChildNode,CDATASection
Set ChildNode = XmlDoc.createNode(1,nodeName,"")
Set CDATASection = XmlDoc.createCDATASection(replace(nodeValue,"]]>","]]>"))
ChildNode.appendChild(CDATASection)
node.appendChild(ChildNode)
End Sub
Sub SaveSetting()
NewsName = Replace(Request.Form("NewsName"),"""","")
NewsType = Netout.CheckNumeric(Request.Form("NewsType"))
UpdateTime = Netout.CheckNumeric(Request.Form("UpdateTime"))
Skin_Head = Request.Form("Skin_Head")
Skin_Main = Request.Form("Skin_Main")
Skin_Footer = Request.Form("Skin_Footer")
If NewsName="" Then
Errmsg=ErrMsg + "<br><li>请填写调用标识！</li>"
Else
NewsName = Lcase(NewsName)
End If
If NewsType < 1 Then
Errmsg=ErrMsg + "<br><li>选取调用类型！</li>"
End If
If NewsType < 8 Then
If Skin_Main = "" Then
Errmsg=ErrMsg + "<br><li>模板_主体循环标记部分不能为空！</li>"
End If
End If
If Errmsg<>"" Then Behind.WriteErrMsg(ErrMsg) : Exit Sub
Call LoadXml()
If FoundNewsName(NewsName) and Request("Action") <> "SaveEditSetting" Then
Errmsg=ErrMsg + "<br><li>调用标识已存在，不能重复添加！</li>"
Behind.WriteErrMsg(ErrMsg)
Exit Sub
End If
Select Case NewsType
Case 1 '文章调用
Call NewsType_1()
Case 2 '图片调用
Call NewsType_2()
Case 3 '公告调用
Call NewsType_3()
Case 4 '专题调用
Call NewsType_4()
Case 5 '分类调用
Call NewsType_5()
Case 6 '连接调用
Call NewsType_6()
Case 7 '大图调用
Call NewsType_7()
Case 8 '登录调用
Case 9 '广告调用
Case 10 '其他调用
Case 11 '顶部连接
Call NewsType_11()
Case Else
Errmsg=ErrMsg + "<br><li>请正确选取调用类型！</li>"
Behind.WriteErrMsg(ErrMsg)
End Select
Call CreateXmlLog()
Call SaveXml()
Behind.WriteSuccessMsg "调用设置成功!","Admin_JSCode.asp?Action=NewsList"
End Sub
'文章调用
Sub NewsType_1()
Dim TotalPut,TopicLen,OrderBy,ClassID,ClassType,UserIDList,ShowDate,SpecialID
TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
Topiclen = Netout.CheckNumeric(Request.Form("TopicLen"))
OrderBy = Request.Form("OrderBy")
ShowDate = Netout.CheckNumeric(Request.Form("ShowDate"))
ClassID = Netout.CheckNumeric(Request.Form("ClassID"))
SpecialID = Netout.CheckNumeric(Request.Form("SpecialID"))
ClassType = Request.Form("ClassType")
UserIDList = Request.Form("UserIDList")
If TotalPut = 0 Then TotalPut = 10
Dim OrderString,SearchString,TempString
CodePutSql = "SELECT TOP "& TotalPut
If OrderBy = "2" Then
OrderString = " Click Desc,"
ElseIf OrderBy = "1" Then
OrderString = " sTime Desc,"
End If
'指定分类
If ClassID>0 Then
Select Case ClassType
Case "0"
SearchString = " and ClassID="&ClassID
Case "1"
TempString = GetClassID(ClassID,"Nt_ArtClassName")
If TempString<>"" Then SearchString = " and ClassID in("&TempString&")"
Case "2"
TempString = GetClassID(ClassID,"Nt_ArtClassName")
If TempString="" Then
TempString = ClassID
Else
TempString = ClassID&","&TempString
End If
SearchString = " and ClassID in("&TempString&")"
End Select
End If
If SpecialID>0 Then
SearchString = SearchString & " and SpecialID="&SpecialID
End If
If UserIDList<>"" Then
If Instr(UserIDList,",") Then
If IsNumeric(Replace(UserIDList,",","")) Then
SearchString = SearchString & " AND DiaryUser IN ("&UserIDList&")"
End If
Else
UserIDList = CInt(UserIDList)
If UserIDList > 0 Then
SearchString = SearchString & " AND DiaryUser = "&UserIDList
End If
End If
End If
If ShowDate>0 Then
SearchString = SearchString & " AND Datediff('d',sTime,Now) < " & ShowDate
End If
CodePutSql = CodePutSql & " ID,ClassID,SpecialID,Title,Body,Click,DiaryUser,sTime From Nt_Diary Where Passed=1 "&SearchString&" Order By "&OrderString&" ID desc"
End Sub
Sub NewsType_2()
Dim TotalPut,OrderBy,ClassID,ClassType,UserIDList,ShowDate,SpecialID,ImageType
TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
ImageType = Request.Form("ImageType")
OrderBy = Request.Form("OrderBy")
ShowDate = Netout.CheckNumeric(Request.Form("ShowDate"))
ClassID = Netout.CheckNumeric(Request.Form("ClassID"))
SpecialID = Netout.CheckNumeric(Request.Form("SpecialID"))
ClassType = Request.Form("ClassType")
UserIDList = Request.Form("UserIDList")
If TotalPut = 0 Then TotalPut = 10
Dim Recomm
Recomm = Request.Form("Recomm")
Dim OrderString,SearchString,TempString
CodePutSql = "SELECT TOP "& TotalPut
If ClassID>0 Then
Select Case ClassType
Case "0"
SearchString = " and a.ClassID="&ClassID
Case "1"
TempString = GetClassID(ClassID,"Nt_ClassName")
If TempString<>"" Then SearchString = " and a.ClassID in("&TempString&")"
Case "2"
TempString = GetClassID(ClassID,"Nt_ClassName")
If TempString="" Then
TempString = ClassID
Else
TempString = ClassID&","&TempString
End If
SearchString = " and a.ClassID in("&TempString&")"
End Select
End If
If SpecialID>0 Then
SearchString = SearchString & " and a.SpecialID="&SpecialID
End If
If UserIDList<>"" Then
If Instr(UserIDList,",") Then
If IsNumeric(Replace(UserIDList,",","")) Then
SearchString = SearchString & " AND a.TitleUser IN ("&UserIDList&")"
End If
Else
UserIDList = CInt(UserIDList)
If UserIDList > 0 Then
SearchString = SearchString & " AND a.TitleUser = "&UserIDList
End If
End If
End If
If ImageType = "0" Then
If ShowDate>0 Then
SearchString = SearchString & " AND Datediff('d',a.AddTime,Now) < " & ShowDate
End If
Select Case OrderBy
Case "0"
OrderString = " a.AddTime Desc,"
Case "1"
OrderString = " a.UpdateTime Desc,"
Case "2"
OrderString = " a.IClick Desc,"
End Select
CodePutSql = CodePutSql & " a.TitleID,a.ClassID,a.SpecialID,a.TitleName,a.TitleDesc,a.TitleUser,a.ManuName,a.iClick,a.iCount,a.AddTime,a.UpdateTime From Nt_Title as a "&_
"Where Exists(Select [ID] from Nt_ImgBook where TitleID=a.TitleID and Passed=1 and IsHide=0) "&SearchString&" Order By "&OrderString&" TitleID Desc"
Else
If ShowDate>0 Then
SearchString = SearchString & " AND Datediff('d',b.AddTime,Now) < " & ShowDate
End If
If Recomm = "1" Then SearchString = SearchString & " AND b.Recomm=1"
If OrderBy = "0" Then
OrderString = " b.AddTime Desc,"
Else
OrderString = " b.UpdateTime Desc,"
End If
CodePutSql = CodePutSql & " a.TitleID,a.ClassID,a.SpecialID,a.TitleName,a.TitleDesc,a.TitleUser,a.ManuName,a.iClick,a.iCount,b.AddTime,b.UpdateTime,b.ImageType,b.ID,b.ImageFile,b.ImageSize From Nt_Title as a,Nt_ImgBook as b "&_
"where b.TitleID=a.TitleID and b.Passed=1 and b.IsHide=0 "&SearchString&" Order By "&OrderString&" b.ID desc"
End If
End Sub
Sub NewsType_3()
Dim TotalPut,ShowDate
TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
ShowDate = Netout.CheckNumeric(Request.Form("ShowDate"))
If TotalPut = 0 Then TotalPut = 10
Dim SearchString:SearchString = ""
If ShowDate>0 Then
SearchString = SearchString & " where Datediff('d',AddTime,Now) < " & ShowDate
End If
CodePutSql = "Select Top "&TotalPut&" [ID],Title,AddTime from Nt_Announce "&SearchString&" Order By [ID] Desc"
End Sub
Sub NewsType_4()
Dim TotalPut,ClassType
TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
ClassType = Request.Form("ClassType")
If TotalPut = 0 Then TotalPut = 20
If ClassType = "0" Then
CodePutSql = "Select Top "&TotalPut&" [ID],SpecialName from Nt_ArtSpecial Order By RootID,OrderID"
Else
CodePutSql = "Select Top "&TotalPut&" [ID],SpecialName from Nt_Special Order By RootID,OrderID"
End If
End Sub
Sub NewsType_5()
Dim TotalPut,ClassID,ClassType,ClassData,SearchString
TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
ClassID = Netout.CheckNumeric(Request.Form("ClassID"))
ClassType = Request.Form("ClassType")
ClassData = Request.Form("ClassData")
ClassUrl = Request.Form("ClassUrl")
If ClassType = "0" Then
ClassType = "Nt_ArtClassName"
Else
ClassType = "Nt_ClassName"
End If
If TotalPut = 0 Then TotalPut = 20
If ClassData = "0" Then
If ClassID >0 Then
Dim prs,ParentPath
Set prs = Conn.Execute("Select ParentPath from "&ClassType&" Where ID="&ClassID)
If Not prs.Eof Then
ParentPath = prs(0)
End If
Set prs = Nothing
ParentPath = ","&ParentPath&","&ClassID&","
SearchString = " and ','+ParentPath+',' Like '"&ParentPath&"%'"
End If
Else
SearchString = " and ParentID="&ClassID
End If
If ClassUrl <> "1" Then
SearchString = SearchString&" and (ClassUrl='' Or ClassUrl Is Null)"
End If
CodePutSql = "Select Top "&TotalPut&" [ID],ParentID,ClassName,iDepth,NextID,target from "&ClassType&" Where 1=1 "&SearchString&" Order By RootID,OrderID"
End Sub
Sub NewsType_6()
Dim TotalPut,ShowType
TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
ShowType = Request.Form("ShowType")
If TotalPut = 0 Then TotalPut = 20
CodePutSql = "Select Top "&TotalPut&" SiteName,SiteUrl,LogoUrl,SiteInfo from Nt_FriendSite"
Select Case ShowType
Case "1"
CodePutSql = CodePutSql & " Where LogoUrl<>'' and LogoUrl Is Not Null"
Case "2"
CodePutSql = CodePutSql & " Where LogoUrl='' Or LogoUrl Is Null"
End Select
End Sub
Sub NewsType_7()
Dim TotalPut
TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
If TotalPut = 0 Then TotalPut = 20
CodePutSql = "Select Top "&TotalPut&" SiteUrl,LogoUrl,LogoContent from Nt_AdInfo"
End Sub
Sub NewsType_11()
Dim TotalPut,ShowType
TotalPut = Netout.CheckNumeric(Request.Form("TotalPut"))
If TotalPut = 0 Then TotalPut = 20
CodePutSql = "Select Top "&TotalPut&" LinkName,LinkUrl,target from Nt_TopLink"
End Sub
Function GetClassID(ClassID,TableName)
Dim ars
Set ars = Conn.Execute("Select ID From "&TableName&" Where ','+ParentPath+',' Like '%,"&ClassID&",%' and ID<>"&ClassID)
If Not(ars.Eof Or ars.Bof) Then
GetClassID = ars.GetString(,,,",","")
Else
GetClassID = ","
End If
Set ars = Nothing
GetClassID = Left(GetClassID,Len(GetClassID)-1)
End Function
Sub AddSetting()
Dim ChildNode,attributes,Action
Call LoadXml()
If Request("Action") = "EditNewsInfo" Then
Set Node = XmlDoc.DocumentElement.selectSingleNode("NewsCode[@AddTime='"&Request("DelNodes")&"']")
If (Node is nothing) Then
Behind.WriteErrMsg("<br><li>所选取的调用已不存在!</li>")
Exit Sub
End If
Action = "SaveEditSetting"
Else
Set Node=XmlDoc.createNode(1,"NewsCode","")
Set ChildNode = XmlDoc.createNode(1,"Skin_Head","")
node.appendChild(ChildNode)
Set ChildNode = XmlDoc.createNode(1,"Skin_Main","")
node.appendChild(ChildNode)
Set ChildNode = XmlDoc.createNode(1,"Skin_Footer","")
node.appendChild(ChildNode)
Action = "SaveSetting"
End If
Set ChildNode = XmlDoc.createNode(1,"Board_Input0","")
node.appendChild(ChildNode)
Set ChildNode = XmlDoc.createNode(1,"Board_Input1","")
node.appendChild(ChildNode)
Set ChildNode = XmlDoc.createNode(1,"Board_Input2","")
node.appendChild(ChildNode)
Set ChildNode = XmlDoc.createNode(1,"Board_Input3","")
node.appendChild(ChildNode)
Set ChildNode = XmlDoc.createNode(1,"Board_Input4","")
node.appendChild(ChildNode)
Set ChildNode = XmlDoc.createNode(1,"Board_Input5","")
node.appendChild(ChildNode)
Set ChildNode = XmlDoc.createNode(1,"UserLogin","")
node.appendChild(ChildNode)
Set ChildNode = XmlDoc.createNode(1,"UserInfo","")
node.appendChild(ChildNode)
Set XmlDoc = Nothing
Dim ClassID,SpecialID
ClassID = "0":SpecialID = "0"
If Node.getAttribute("ClassID") <> "" Then
ClassID = Node.getAttribute("ClassID")
End If
If Node.getAttribute("SpecialID") <> "" Then
SpecialID = Node.getAttribute("SpecialID")
End If
%>
<br>
<script language="javascript">
function chkForm(){
if(TheForm.NewsName.value==""){
alert("调用标识名称不能为空！");
TheForm.NewsName.focus();
return false;
}
if(TheForm.NewsType.selectedIndex==0){
alert("请选择调用类型！");
return false;
}else if(TheForm.NewsType.selectedIndex<7){
if(TheForm.Skin_Main.value==""){
alert("模板_主体循环标记部分不能为空！");
return false;
}
}
return true;
}
function NewsTypeSel(index){
var mt = document.getElementById("MainTable");
var nt = document.getElementById("UserTable");
var News = document.getElementById("News");
var Val = parseInt(index);
if(Val){
if(Val>7&&Val<11) {
mt.style.display="none";
News.innerHTML = "";
switch(Val){
case 8:nt.style.display="";break;
case 9:
case 10:
nt.style.display="none";
News.innerHTML = document.getElementById("skininfo_"+Val).innerHTML;
break;
default:
break;
}
}else{
mt.style.display="";
nt.style.display="none";
var skininfo = document.getElementById("skininfo_"+Val);
if (skininfo) document.getElementById("skin_info").innerHTML = skininfo.innerHTML;
if (Val>0) News.innerHTML = document.getElementById("News_"+Val).innerHTML;
else News.innerHTML = "";
document.getElementById("DisInput").innerHTML = document.getElementById("BoardInput"+Val).innerHTML;
if (Val>3) ShowTypeSel("0",Val);
}
}
}
function OutputNewsCode(Val){
var obj = TheForm.Newscode;
if (obj){
if (Val!=''){
obj.value = "<scr"+"ipt src=\"CodePut.asp?Name="+Val.toLowerCase()+"\"><\/scr"+"ipt>";
}else{
obj.value = "";
}
}
}
function CheckSel(name,value){
if(value!=""){
var obj = document.getElementById(name);
if(obj) obj.value = value;
}
}
function CheckRadio(name,value){
var obj = document.getElementById(name);
if(obj.length){
for(var i=0;i<obj.length;i++){
if(obj[i].value==value){
obj[i].checked=true;
break;
}
}
}
}
function ShowTypeSel(value,Val){
if(Val==4||Val==5){
if(value=="1"){
document.getElementById("divCol_"+Val).style.display = "";
document.getElementById("DisInput").style.display = "";
}else{
document.getElementById("divCol_"+Val).style.display = "none";
document.getElementById("DisInput").style.display = "none";
}
}
}
function ImageTypeSel(value){
if(value=="1"){
TheForm.OrderBy.options.remove(2);
document.getElementById("skin_info").innerHTML = document.getElementById("skininfo_2_1").innerHTML;
document.getElementById("ShowRec").style.display = "";
}else if(value=="0"){
if(TheForm.OrderBy.length==2) TheForm.OrderBy.options.add(new Option("按照点击(热门组图)","2"));
document.getElementById("skin_info").innerHTML = document.getElementById("skininfo_2").innerHTML;
document.getElementById("ShowRec").style.display = "none";
}
}
function admin_Size(num,objname){
var obj=document.getElementById(objname)
if (parseInt(obj.rows)+num>=3) {
obj.rows = parseInt(obj.rows) + num;
}
}
</script>
<form METHOD=POST ACTION="?Action=<%=Action%>" name="TheForm">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr>
<th colspan="2" height="23" class="tdbg1">编辑调用</th>
</tr>
<tr class="tdbg">
<td width="30%" align="right">
调用标识名称：
</td>
<td width="70%">
<INPUT TYPE="text" NAME="NewsName" size="10" Maxlength="10" onpropertychange="OutputNewsCode(this.value);" value="<%=Node.getAttribute("NewsName")%>">(请使用英文或数字设定调用名称,并且是唯一标识.不能超出10个字符)
</td>
</tr>
<tr class="tdbg">
<td width="15%" align="right">
调用代码：
</td>
<td width="85%">
<INPUT TYPE="text" NAME="Newscode" size="70" disabled value="<script src="CodePut.asp?Name=<%=Node.getAttribute("NewsName")%>"></script>">
</td>
</tr>
<tr class="tdbg">
<td align="right">
调用说明：
</td>
<td>
<INPUT TYPE="text" NAME="Intro" size="30" Maxlength="30" value="<%=Node.getAttribute("Intro")%>">(提示说明,以作管理区分.不能超出30个字符)
</td>
</tr>
<tr class="tdbg">
<td align="right">
调用类型：
</td>
<td>
<SELECT NAME="NewsType" ID="NewsType" onChange="NewsTypeSel(this.value)">
<option value="0">选取调用类型</option>
<!--<option value="1">文章调用</option>-->
<option value="2">图片调用</option>
<option value="3">公告调用</option>
<option value="4">专题调用</option>
<option value="5">分类调用</option>
<option value="6">友情连接调用</option>
<option value="7">首页大图调用</option>
<option value="8">登录调用</option>
<option value="9">广告调用</option>
<option value="11">顶部连接调用</option>
<option value="10">其他调用</option>
</SELECT>
</td>
</tr>
<tr class="tdbg">
<td align="right">
数据更新间隔：
</td>
<td class="forumrow"><INPUT TYPE="text" NAME="UpdateTime" value="<%=Node.getAttribute("UpdateTime")%>">(单位：秒)</td>
</tr>
<tr class="tdbg">
<td align="right">
数据为空时显示文字：
</td>
<td class="forumrow"><INPUT TYPE="text" NAME="EmptyText" value="<%=Server.HtmlEncode(Node.getAttribute("EmptyText")&"")%>"></td>
</tr>
<tr class="tdbg">
<td align="right">
时间显示格式：
</td>
<td>
<SELECT NAME="FormatTime" ID="FormatTime">
<option value="YYYY-MM-DD HH:NN:SS">YYYY-MM-DD HH:NN:SS</option>
<option value="YYYY-MM-DD HH:NN">YYYY-MM-DD HH:NN</option>
<option value="YYYY-MM-DD">YYYY-MM-DD</option>
<option value="YYYY-M-D H:N:S">YYYY-M-D H:N:S</option>
<option value="YYYY-M-D H:N">YYYY-M-D H:N</option>
<option value="YYYY-M-D">YYYY-M-D</option>
<option value="MM-DD HH:NN:SS">MM-DD HH:NN:SS</option>
<option value="MM-DD HH:NN">MM-DD HH:NN</option>
<option value="M-D H:N:S">M-D H:N:S</option>
<option value="M-D H:N">M-D H:N</option>
<option value="MM-DD">MM-DD</option>
<option value="M-D">M-D</option>
<option value="HH:NN:SS">HH:NN:SS</option>
<option value="HH:NN">HH:NN</option>
<option value="H:N:S">H:N:S</option>
<option value="H:N">H:N</option>
<option value="YYYY年MM月DD日HH时NN分SS秒">YYYY年MM月DD日HH时NN分SS秒</option>
<option value="YYYY年MM月DD日HH时NN分">YYYY年MM月DD日HH时NN分</option>
<option value="YYYY年MM月DD日">YYYY年MM月DD日</option>
<option value="YYYY年M月D日H时N分S秒">YYYY年M月D日H时N分S秒</option>
<option value="YYYY年M月D日H时N分">YYYY年M月D日H时N分</option>
<option value="YYYY年M月D日">YYYY年M月D日</option>
<option value="MM月DD日HH时NN分SS秒">MM月DD日HH时NN分SS秒</option>
<option value="MM月DD日HH时NN分">MM月DD日HH时NN分</option>
<option value="M月D日H时N分S秒">M月D日H时N分S秒</option>
<option value="M月D日H时N分">M月D日H时N分</option>
<option value="MM月DD日">MM月DD日</option>
<option value="M月D日">M月D日</option>
<option value="HH时NN分SS秒">HH时NN分SS秒</option>
<option value="HH时NN分">HH时NN分</option>
<option value="H时N分S秒">H时N分S秒</option>
<option value="H时N分">H时N分</option>
</SELECT>
</td>
</tr>
<tr class="tdbg">
<td align="right" valign="top">调用设置：</td>
<td>
<div id="News"></div>
</td>
</tr>
</table>
<table id="MainTable" width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<!-- 调用模板设置 -->
<tr><th colspan="2" height="23" class="tdbg1">调用模板设置(请用HTML语法填写)</th></tr>
<tr class="tdbg">
<td align="right" valign="top" width="30%">模板_开始标记部分
</td>
<td>
<textarea name="Skin_Head" ID="Skin_Head" style="width:100%;" rows="6"><%=Server.Htmlencode(Node.selectSingleNode("Skin_Head").text&"")%></textarea>
<br><a href="javascript:admin_Size(-3,'Skin_Head')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'Skin_Head')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<tr class="tdbg">
<td align="right" valign="top">
模板_主体循环标记部分
<fieldset title="模板变量">
<legend> 模板变量说明 </legend>
<div id="skin_info" align="left"></div>
</fieldset>
</td>
<td valign="top">
<div id="DisInput"></div>
<textarea name="Skin_Main" ID="Skin_Main" style="width:100%;" rows="10"><%=Server.Htmlencode(Node.selectSingleNode("Skin_Main").text&"")%></textarea>
<br><a href="javascript:admin_Size(-3,'Skin_Main')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'Skin_Main')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<tr class="tdbg">
<td align="right" valign="top">模板_结束标记部分
</td>
<td>
<textarea name="Skin_Footer" id="Skin_Footer" style="width:100%;" rows="6"><%=Server.Htmlencode(Node.selectSingleNode("Skin_Footer").text&"")%></textarea>
<br><a href="javascript:admin_Size(-3,'Skin_Footer')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'Skin_Footer')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
<table id="UserTable" style="display: none;" width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr><th colspan="2" height="23" class="tdbg1">调用模板设置(请用HTML语法填写)</th></tr>
<tr class="tdbg">
<td align="right" valign="top" width="30%">会员登录
<fieldset title="模板变量">
<legend> 模板变量说明 </legend>
<div align="left">
<ol>
<li>验证码：{?CheckCode}</li>
<li>风格ID：{?StyleID}</li>
</ol>
</div>
</fieldset>
</td>
<td>
<textarea name="UserLogin" ID="UserLogin" style="width:100%;" rows="6"><%=Server.Htmlencode(Node.selectSingleNode("UserLogin").text&"")%></textarea>
<br><a href="javascript:admin_Size(-3,'UserLogin')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'UserLogin')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<tr class="tdbg">
<td align="right" valign="top">
会员信息
<fieldset title="模板变量">
<legend> 模板变量说明 </legend>
<div align="left">
<ol>
<li>用户名：{?UserName}</li>
<li>所属组：{?UserGroup}</li>
<li>组图数：{?TitleCount}</li>
<li>图片数：{?ImageCount}</li>
<li>文章数：{?ArticleCount}</li>
<li>权限列表:{?Purview}</li>
<li>风格ID：{?StyleID}</li>
</ol>
</div>
</fieldset>
</td>
<td valign="top">
<div id="DisInput"></div>
<textarea name="UserInfo" ID="UserInfo" style="width:100%;" rows="6"><%=Server.Htmlencode(Node.selectSingleNode("UserInfo").text&"")%></textarea>
<br><a href="javascript:admin_Size(-3,'UserInfo')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'UserInfo')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
<!-- 调用模板设置 -->
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr class="tdbg">
<td align="right" width="30%"> </td>
<td>
<INPUT TYPE="submit" onClick="return chkForm();" value="保存">
<INPUT TYPE="reset" value="重填">
<INPUT TYPE="hidden" name="AddTime" value="<%=Node.getAttribute("AddTime")%>">
</td>
</tr>
</table>
</form>
<!-- 设置信息部分 -->
<div id="News_1" style="display:none">
<!-- 文章调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td>
显示记录数：<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
每行显示个数：<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4">
标题长度：<INPUT TYPE="text" NAME="TopicLen" size="4" value="<%=Node.getAttribute("TopicLen")%>">
</td>
</tr>
<tr>
<td>
文章排序： <SELECT NAME="OrderBy" ID="OrderBy">
<option value="0" SELECTED>默认最新排序(推荐使用)</option>
<option value="1">按照发表时间</option>
<option value="2">按照点击(热门文章)</option>
</SELECT>
</td>
</tr>
<tr><td>
天数的限制：<INPUT TYPE="text" NAME="ShowDate" value="<%=Node.getAttribute("ShowDate")%>" size="4">(查询多少天内的文章，1为当天。若为空则日期不限，建议为空。)
</td></tr>
<tr><td>
调用的专题：<SELECT id="SpecialID" NAME="SpecialID"><%Behind.ShowArtSpecial_Option 0,SpecialID%></SELECT>
</td>
</tr>
<tr><td>
调用的分类：<SELECT id="ClassID" NAME="ClassID"><%Behind.ShowArtClass_Option 3,ClassID,0%></SELECT>
分类设置：<SELECT NAME="ClassType" ID="ClassType">
<option value="0" SELECTED>只显示该分类的数据</option>
<option value="1">显示该分类的下级所有分类的数据</option>
<option value="2">显示该分类和下级所有分类的数据</option>
</SELECT>
</td>
</tr>
<tr><td>
单独用户ID：<INPUT TYPE="text" NAME="UserIDList" value="<%=Node.getAttribute("UserIDList")%>">(请填写用户会员ID,用英文逗号分隔)
</td>
</tr>
</table>
</div>
<div id="News_2" style="display:none">
<!-- 图片调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td width="180">
显示记录数：<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
</td>
<td width="790">
每行显示个数：<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4">
图片显示属性：<SELECT NAME="Thumbnail" ID="Thumbnail">
<option value="0">按比例显示</option>
<option value="1">固定大小显示</option>
</SELECT>
</td>
</tr>
<tr>
<td colspan="2">
天数的限制：<INPUT TYPE="text" NAME="ShowDate" value="<%=Node.getAttribute("ShowDate")%>" size="4">(查询多少天内的图片，1为当天。若为空则日期不限，建议为空。)
</td>
</tr>
<tr>
<td colspan="2">
调用的方式：<SELECT NAME="ImageType" ID="ImageType" onChange="javascript:ImageTypeSel(this.value);">
<option value="0">按组图</option>
<option value="1">按单图</option>
</SELECT>
图片排序：<SELECT NAME="OrderBy" ID="OrderBy">
<option value="0" SELECTED>默认最新排序(推荐使用)</option>
<option value="1">按照更新时间</option>
<option value="2">按照点击(热门组图)</option>
</SELECT>
</td>
</tr>
<tr><td colspan="2">
调用的专题：<SELECT id="SpecialID" NAME="SpecialID"><%Behind.ShowSpecial_Option 0,SpecialID%></SELECT>
<span id="ShowRec" style="display:none;"> <input name="Recomm" type="checkbox" value="1"<%If Node.getAttribute("Recomm")="1" Then%> checked<%End If%>>只调用推荐的图片</span>
</td>
</tr>
<tr><td colspan="2">
调用的分类：<SELECT id="ClassID" NAME="ClassID"><%Behind.ShowClass_Option 3,ClassID,0%></SELECT>
分类设置：<SELECT NAME="ClassType" ID="ClassType">
<option value="0" SELECTED>只显示该分类的数据</option>
<option value="1">显示该分类的下级所有分类的数据</option>
<option value="2">显示该分类和下级所有分类的数据</option>
</SELECT>
</td>
</tr>
<tr><td colspan="2">
单独用户ID：<INPUT TYPE="text" NAME="UserIDList" value="<%=Node.getAttribute("UserIDList")%>">(请填写用户会员ID,用英文逗号分隔)
</td>
</tr>
</table>
</div>
<div id="News_3" style="display:none">
<!-- 公告调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td>
显示记录数：<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
每行显示个数：<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4">
标题长度：<INPUT TYPE="text" NAME="TopicLen" size="4" value="<%=Node.getAttribute("TopicLen")%>">
</td>
</tr>
<tr><td>
天数的限制：<INPUT TYPE="text" NAME="ShowDate" value="<%=Node.getAttribute("ShowDate")%>" size="4">(查询多少天内的公告，1为当天。若为空则日期不限，建议为空。)
</td></tr>
</table>
</div>
<div id="News_4" style="display:none">
<!-- 专题调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td>
显示记录数：<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
<span id="divCol_4"<%If Node.getAttribute("ShowType")="0" Then%> style="display:none;"<%End If%>>
每行显示：<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4"个>
专题名称长度：<INPUT TYPE="text" NAME="TopicLen" size="4" value="<%=Node.getAttribute("TopicLen")%>">
</span>
<input type="hidden" name="ClassType" value="1">
调用方式：<SELECT NAME="ShowType" ID="ShowType" onChange="ShowTypeSel(this.value,4);">
<option value="0" SELECTED>下拉列表</option>
<option value="1">文字或连接</option>
</SELECT>
</td>
</tr>
</table>
</div>
<div id="News_5" style="display:none">
<!-- 分类调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td width="220">
显示记录数：<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
</td>
<td width="700">
<span id="divCol_5"<%If Node.getAttribute("ShowType")="0" Then%> style="display:none;"<%End If%>>
每行显示：<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4">个
分类名称长度：<INPUT TYPE="text" NAME="TopicLen" size="4" value="<%=Node.getAttribute("TopicLen")%>">
</span>
</td>
</tr>
<tr>
<td>
上级分类ID：<INPUT TYPE="text" NAME="ClassID" size="4" value="<%=Node.getAttribute("ClassID")%>">
</td>
<td>
分类数据：<SELECT NAME="ClassData" ID="ClassData">
<option value="0" SELECTED>包括子分类</option>
<option value="1">不包括子分类</option>
</SELECT>
</td>
</tr>
<tr>
<td>
调用类型：<SELECT NAME="ClassType" ID="ClassType">
<option value="0" SELECTED>文章分类</option>
<option value="1">图片分类</option>
</SELECT>
</td>
<td>
调用方式：<SELECT NAME="ShowType" ID="ShowType" onChange="ShowTypeSel(this.value,5);">
<option value="0" SELECTED>下拉列表</option>
<option value="1">文字或连接</option>
</SELECT>
</td>
</tr>
<tr>
<td colspan="2">
包含外部连接分类：<input name="ClassUrl" type="checkbox" value="1"<%If Node.getAttribute("ClassUrl")="1" Then%> checked<%End If%>>
</td>
</tr>
</table>
</div>
<div id="News_6" style="display:none">
<!-- 友情连接调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td>
显示记录数：<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
每行显示个数：<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4">
调用类型：<SELECT NAME="ShowType" ID="ShowType">
<option value="0">所有连接</option>
<option value="1">图片连接</option>
<option value="2">文字连接</option>
</SELECT>
</td>
</tr>
</table>
</div>
<div id="News_7" style="display:none">
<!-- 首页大图调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td>
显示记录数：<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
每行显示个数：<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4">
</td>
</tr>
</table>
</div>
<div id="News_11" style="display:none">
<!-- 友情连接调用 -->
<table border="0" cellpadding="3" cellspacing="1" style="width:100%" >
<tr>
<td>
显示记录数：<INPUT TYPE="text" NAME="TotalPut" size="4" value="<%=Node.getAttribute("TotalPut")%>">
每行显示个数：<INPUT TYPE="text" NAME="Columns" value="<%=Node.getAttribute("Columns")%>" size="4">
</td>
</tr>
</table>
</div>
<!-- 变量说明 -->
<div id="skininfo_0" style="display:none"></div>
<div id="skininfo_1" style="display:none">
<ol>
<li>文章ID：{?ID}</li>
<li>文章标题：{?Title}</li>
<li>文章作者：{?UserName}</li>
<li>发表时间：{?AddTime}</li>
<li>分类ID：{?ClassID}</li>
<li>分类名称：{?ClassName}</li>
<li>分类说明：{?ClassInfo}</li>
<li>专题ID：{?SpecialID}</li>
<li>专题名称 ：{?SpecialName}</li>
<li>风格ID：{?StyleID}</li>
</ol>
</div>
<div id="BoardInput1" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend> 版块特殊设置 </legend>
分类名称长度：<INPUT TYPE="text" NAME="Board_Input0" size="3" value="<%=Node.selectSingleNode("Board_Input0").text%>"><br>
分类说明长度：<INPUT TYPE="text" NAME="Board_Input1" size="3" value="<%=Node.selectSingleNode("Board_Input1").text%>"><br>
专题名称长度：<INPUT TYPE="text" NAME="Board_Input2" size="3" value="<%=Node.selectSingleNode("Board_Input2").text%>"><br>
换行标记字符：<INPUT TYPE="text" NAME="Board_Input3" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input3").text&"",True)%>"><br>
</fieldset>
</div>
<div id="skininfo_2" style="display:none">
<ol>
<li>组图ID ：{?TitleID}</li>
<li>组图标题 ：{?TitleName}</li>
<li>组图说明 ：{?TitleInfo}</li>
<li>分类ID ：{?ClassID}</li>
<li>分类名称：{?ClassName}</li>
<li>分类说明：{?ClassInfo}</li>
<li>专题ID：{?SpecialID}</li>
<li>专题名称 ：{?SpecialName}</li>
<li>图片署名 ：{?ManuName}</li>
<li>上传人 ：{?UserName}</li>
<li>点击数：{?Click}</li>
<li>图片数：{?ImageCount}</li>
<li>添加时间：{?AddTime}</li>
<li>更新时间 ：{?UpdateTime}</li>
<li>图片ID:{?ImageID}</li>
<li>图片文件名：{?ImageCode}</li>
<li>风格ID：{?StyleID}</li>
</ol>
</div>
<div id="skininfo_2_1" style="display:none">
<ol>
<li>组图ID ：{?TitleID}</li>
<li>组图标题 ：{?TitleName}</li>
<li>组图说明 ：{?TitleInfo}</li>
<li>分类ID ：{?ClassID}</li>
<li>分类名称：{?ClassName}</li>
<li>分类说明：{?ClassInfo}</li>
<li>专题ID：{?SpecialID}</li>
<li>专题名称 ：{?SpecialName}</li>
<li>图片类型：{?ImageType}</li>
<li>图片署名 ：{?ManuName}</li>
<li>上传人 ：{?UserName}</li>
<li>添加时间：{?AddTime}</li>
<li>更新时间 ：{?UpdateTime}</li>
<li>图片ID:{?ImageID}</li>
<li>图片显示代码：{?ImageCode}</li>
<li>风格ID：{?StyleID}</li>
</ol>
</div>
<div id="BoardInput2" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend> 版块特殊设置 </legend>
图片最大宽度：<INPUT TYPE="text" NAME="PicWidth" size="10" value="<%=Node.getAttribute("PicWidth")%>">像素<br>
图片最大高度：<INPUT TYPE="text" NAME="PicHeight" size="10" value="<%=Node.getAttribute("PicHeight")%>">像素<br>
组图标题长度：<INPUT TYPE="text" NAME="Board_Input0" size="10" value="<%=Node.selectSingleNode("Board_Input0").text%>"><br>
组图说明长度：<INPUT TYPE="text" NAME="Board_Input1" size="10" value="<%=Node.selectSingleNode("Board_Input1").text%>"><br>
分类名称长度：<INPUT TYPE="text" NAME="Board_Input2" size="10" value="<%=Node.selectSingleNode("Board_Input2").text%>"><br>
分类说明长度：<INPUT TYPE="text" NAME="Board_Input3" size="10" value="<%=Node.selectSingleNode("Board_Input3").text%>"><br>
专题名称长度：<INPUT TYPE="text" NAME="Board_Input4" size="10" value="<%=Node.selectSingleNode("Board_Input4").text%>"><br>
换行标记字符：<INPUT TYPE="text" NAME="Board_Input5" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input5").text&"",True)%>"><br>
</fieldset>
</div>
<div id="skininfo_3" style="display:none">
<ol>
<li>公告ID：{?ID}</li>
<li>公告标题：{?Title}</li>
<li>添加时间：{?AddTime}</li>
<li>风格ID：{?StyleID}</li>
</ol>
</div>
<div id="BoardInput3" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend> 版块特殊设置 </legend>
换行标记字符：<INPUT TYPE="text" NAME="Board_Input0" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input0").text&"",True)%>"><br>
</fieldset>
</div>
<div id="skininfo_4" style="display:none">
<ol>
<li>专题ID：{?SpecialID}</li>
<li>专题名称：{?SpecialName}</li>
<li>风格ID：{?StyleID}</li>
</ol>
</div>
<div id="BoardInput4" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend> 版块特殊设置 </legend>
换行标记字符：<INPUT TYPE="text" NAME="Board_Input0" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input0").text&"",True)%>"><br>
</fieldset>
</div>
<div id="skininfo_5" style="display:none">
<ol>
<li>分类ID：{?ClassID}</li>
<li>分类名称：{?ClassName}</li>
<li>上级分类ID：{?ParentID}</li>
<li>窗口打开方式：{?target}</li>
<li>风格ID：{?StyleID}</li>
</ol>
</div>
<div id="BoardInput5" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend> 版块特殊设置 </legend>
换行标记字符：<INPUT TYPE="text" NAME="Board_Input0" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input0").text&"",True)%>"><br>
</fieldset>
</div>
<div id="skininfo_6" style="display:none">
<ol>
<li>连接地址：{?LinkUrl}</li>
<li>连接图片：{?LogoUrl}</li>
<li>连接名称：{?LinkName}</li>
<li>连接信息：{?LinkInfo}</li>
<li>风格ID：{?StyleID}</li>
</ol>
</div>
<div id="BoardInput6" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend> 版块特殊设置 </legend>
换行标记字符：<INPUT TYPE="text" NAME="Board_Input0" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input0").text&"",True)%>"><br>
</fieldset>
</div>
<div id="skininfo_7" style="display:none">
<ol>
<li>连接地址：{?LinkUrl}</li>
<li>图片文件：{?ImageFile}</li>
<li>图片说明：{?ImageInfo}</li>
<li>风格ID：{?StyleID}</li>
</ol>
</div>
<div id="BoardInput7" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend> 版块特殊设置 </legend>
换行标记字符：<INPUT TYPE="text" NAME="Board_Input0" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input0").text&"",True)%>"><br>
</fieldset>
</div>
<div id="skininfo_9" style="display: none;">
调用广告：<select name="ShowType">
<option value="1">广告一</option>
<option value="2">广告二</option>
<option value="3">广告三</option>
</select><br>
图片宽度：<INPUT TYPE="text" NAME="PicWidth" size="10" value="<%=Node.getAttribute("PicWidth")%>">像素<br>
图片高度：<INPUT TYPE="text" NAME="PicHeight" size="10" value="<%=Node.getAttribute("PicHeight")%>">像素
</div>
<div id="skininfo_10" style="display: none;">
调用类型：<select name="ShowType">
<option value="4">网站Logo</option>
<option value="5">友情连接Logo</option>
</select><br>
图片宽度：<INPUT TYPE="text" NAME="PicWidth" size="10" value="<%=Node.getAttribute("PicWidth")%>">像素<br>
图片高度：<INPUT TYPE="text" NAME="PicHeight" size="10" value="<%=Node.getAttribute("PicHeight")%>">像素
</div>
<div id="skininfo_11" style="display:none">
<ol>
<li>连接地址：{?LinkUrl}</li>
<li>连接名称：{?LinkName}</li>
<li>窗口打开方式：{?target}</li>
<li>风格ID：{?StyleID}</li>
</ol>
</div>
<div id="BoardInput11" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend> 版块特殊设置 </legend>
换行标记字符：<INPUT TYPE="text" NAME="Board_Input0" size="30" value="<%=Netout.HtmlEncode(Node.selectSingleNode("Board_Input0").text&"",True)%>"><br>
</fieldset>
</div>
<!-- 默认模式 -->
<SCRIPT LANGUAGE="JavaScript">
<!--
//默认值
CheckSel("FormatTime",'<%=Node.getAttribute("FormatTime")%>');
CheckSel("NewsType",'<%=Node.getAttribute("NewsType")%>');
CheckSel("OrderBy",'<%=Node.getAttribute("OrderBy")%>');
NewsTypeSel(<%=Node.getAttribute("NewsType")%>);
CheckSel("ClassType",'<%=Node.getAttribute("ClassType")%>');
CheckSel("ClassData",'<%=Node.getAttribute("ClassData")%>');
CheckSel("ImageType",'<%=Node.getAttribute("ImageType")%>');
CheckSel("Thumbnail",'<%=Node.getAttribute("Thumbnail")%>');
CheckSel("ShowType",'<%=Node.getAttribute("ShowType")%>');
ShowTypeSel("<%=Node.getAttribute("ShowType")%>","<%=Node.getAttribute("NewsType")%>");
ImageTypeSel("<%=node.getAttribute("ImageType")%>");
//-->
</SCRIPT>
<%
End Sub
%>